#!/usr/local/bin/perl5

%friend=("guoxin"=>"shenmai","guohuij"=>"llna","xiaoming"=>"datou");

foreach $key(keys %friend)
{
	$value=$friend{$key};
	print "$key => $value\n";
}
while(defined(($name=<STDIN>)=~/^\n/))
{
	chomp $name;
	$_=$name;
	if(/quit/i)
	{
		last;
	}
	print "$friend{$name}\n";
}